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1, ABSTRACT 



THIS PROGRAM IS WRITTEN TO TEST THE ISZ INSTRUCTION OF THE 
POP-BE. AN ISZ INSTRUCTION IS PLACED IN A FROM LOCATION. ANO 
A TO LOCATION CONTAINS THE OPERAND. PART 1 OF THE PROGRAM 
SELECTS PROM. TO, AND OPERAND FROM A RANDOM NUMBER GENERATOR. 
WITH THE OPTION OF HOLDING ANY OR ALL CONSTANT. PART 2 USES 
A FIXED SET OF FROM. TO, AND OPERAND NUMBERS. 



2. REQUIREMENTS 
2.1 EQUIPMENT 



ONE PDP-8E EQUIPPED WITH TELETYPE. 
2.2 STORAGE 



THIS PROGRAM USES LOCATIONS 0000-7600(8), THE BINARY LOADER 
MUST BE STORED IN THE LAST MEMORY PAGE, 

2.3 PRELIMINARY PROGRAM 



MAINDEC-6E-D0A<N), AND MAI NDEC-8E-O0B( N) MUST HAVE RUN SUCCESSFULLY. 
3. LOADING PROCEDURE 



THE STANDARD BINARY LOADER IS USED. 
<. STARTING PROCEDURE 



4.1 SWITCH SETTINGS 



SR0(0) = HALT ON ERROR 

SRl(l) = ELIMINATE ERROR PRINTOUTS 

SR3 = FIXED FROMS <1) 

RANDOM FROMS (0) 
SR4 = FIXED TOS (1) 

RANDOM TOS (0) 
SR5 = FIXED OPERAND (1} 

RANDOM OPERAND (0) 
SR9(0) = DO ONE ISZ ONLY 

SR11(1)= DO TEST PART 2 SR3, 4, 5, MUST BE 0'S 
SRH{0)= 00 TEST PART 1 

4.2 STARTING ADDRESS 
200 



4,3 OPERATOR ACTION 

A. SET |R (SWITCH REGISTER) TO 0200 AND PRESS LOAD ADDRESS. 

B. SET 9R TO DESIRED MODE Of OPERATION! FOR MOST RUNS, SR9s0 
ALLOWS THE MOST TESTING IN THE LEAST AMOUNT OF TIME. 

FOR FIXED FROM. TO. OR OPERAND USAGE. THE FIXED NUMBER MAY 
BE SELECTED AND ENTERED INTO THE MEMORY LOCATIONS SHOWN 
BEL0W5 

FROM =0002 
TO a0021 

OPERAND a0022 

C. PRESS, CLEAR AND THEN CONTINUE. 
5, OPERATING PROCEDURE 



SAME AS PARAGRAPH 4. 
6. ERRORS 



6,1 ERROR HALJS AND DESCRIPTION 



C(PC) CAUSE 



0002 PERIPHERAL INTERRUPT 

0254 HALT ON ERROR. SR0=0 



6.2 ERROR PRINTOUTS 



F XXXX T YYYY 

Z22Z F MMMM R NNNN NS 

6.2,1 PRINTOUT EXPLANATION 



(FROM) F XXXX -THE IS2 INSTRUCTION IN LOCATION XXXX 

FAILED. 

(TO) T YYYY -THE OPERAND ADDRESS OF THE IS2 INSTRUC- 

TION WAS YYYY. 

(OPERAND) ZEZE -THE STARTING COUNT IN THE IS2 LOOP WAS 

EZZH. 

(FAILED) F MMMM -THE FAILURE OCCURRED TRYING TO ISE THE 

NUMBER MMMM. 

(RESULT) R NNNN -THE RESULT OF THIS ISZ WAS NNNN. 

NS -NO SKIP OCCURRED 

S. -INDICATES A SKIP. 



6.2.2 EXAMPLES 



A. THE FOLLOWING IS A TYPICAL ERROR PRINTOUT. 

F 3003 T 5470 

3705 F 4777 R 5000 S 

LINE 1 or THE PRINTOUT IS A STATEMENT OF THE PROBLEM. IT 
SAYS THAT LOCATED AT 3003 IS AN IS2 INSTRUCTION INCREMENTING 
AN OPERAND STORED IN LOCATION 5470. LINE 2 OF THE PRINTOUT 
GIVES INFORMATION FOR ERROR ANALYSIS. 3705 WAS THE INITIAL 
OPERAND. 4777 WAS THE OPERAND BEING INCREMENTED WHEN THE ERROR 
OCCURRED, AND 5000 IS THE OPERAND FOLLOWING THE FAILING 
INCREMENT. THE S INDICATES THAT THE INCREMENT RESULTED IN 
A SKIP, THE ERROR HERE IS OBVIOUSLY THAT THE SKIP SHOULD NOT 
HAVE OCCURRED. 

B, THE FOLLOWING IS ANOTHER TYPICAt ERROR PRINTOUT, 

F 3003 T 5470 

3705 F 4777 R 5020 NS 

THIS IS IDENTICAL TO EXAMPLE (A) EXCEPT THAT A DIFFERENT 
TYPE OF ERROR HAS OCCURRED, THE RESULT OF INCREMENTING 4777 
SHOULD BE 5000, NOT 5020. 



6,3 ERROR RECOVERY 



THE PROGRAM CONTINUES ON, FOLLOWING AN ERROR PRINTOUT UNLESS 
SR0=0. AFTER A HALT ON ERROR. PUSH CONTINUE TO RESUME TESTING. 
WHEN ERRORS EXIST, A FAILING CONDITION CHOSEN FROM THOSE TYPED 
OUT MUST BE USED WITH THE ScOPE MODE. FOR THE SCOPE MODE. 
PERFORM THE FOLLOWING STEPS: 

A. STOP THE PROGRAM, 

B. INSERT CHOSEN FROM INTO LOCATION 0002. 

C. INSERT CHOSEN TO INTO LOCATION 0021, 

D. INSERT CHOSEN FAILING OPERAND INTO LOCATION 0022 

E. RESTART PROGRAM WITH CONTROL SWITCHES 1,3.4,5. SET TO 
i AND 9 SET TO A 0. 

NOTEI BY SETTTING SR0 TO A 0, THE PROGRAM HALTS FOLLOWING 
THE ERROR PRINTOUT, THE OPERATOR MAY AT THIS TIME SET 
SWITCHES 1, 3, 4, 5, TO A 1 AND 9 TO A AND PUSH CONTINUE. 
THE PROGRAM ENTERS A SCOPE MODE USING THE FAILING CONDITIONS 
JUST PRINTED. 



7. 



RESTRICTIONS 



7.1 



STARTING RESTRICTIONS 



7.2 



NONE. 

OPERATING RESTRICTIONS 



8, 



THE INTERRUPT IS ENABLED DURING PROGRAM OPERATION. ANY ATTACHED 
DEVICE WHICH MIGHT CAUSE SPURIOUS INTERRUPTS, MUST BE DISABLED. 

MISCELLANEOUS 



8.1 EXECUTION TIME 



SR9 = 1. il,000 ISZ OPERATIONS/SECOND. 
SR9 = 0. 3,500 ISZ OPERATIONS/SECOND. 



9, 



PROGRAM DESCRIPTION 



THE TEST LOOP IS SHOWN BELOW! 



JMPrROM] I SEt UP NEXT TfcST [ 



FROM 



ise 



UL 



JEEE 



NO ERROR 



-* CHECK 

-f ISi RESULTS 



TO LOPERAND | 



ERROR 



PART 1 or THE PROGRAM USES A RANDOM NUMBER GENERATOR TO SELECT 
THE FROMi TO, AND OPERAND NUMBERS. ONCE SELECTEOi THE OPERAND 
IS INCREMENTED UNTIL IT REACHES ZERO. EACH ISZ IS CHECKED BY 
DUPLICATING ISZ WITH TAD, lAC, DCA. EACH ITERATION IS ALSO 
CHECKED FOR THE PROPER SKIP OR NO-SKIP CONDITION, 

PART 2 OF THE PROGRAM IS ACTUALLY PART 1, WITH THE RANDOM NUMBER 
GENERATED REPLACED BY A FIXED NUMBER GENERATOR. SEQUENCING OF 
EVENTS IS AS FOLLOWS: 



(NOTE! 
A. 



621(8)<MEM0RY TEST AREA<7600(8) ) I 



B. 



FROM = 621 TO » 624 TEST A SET OF 24 SELECTED OPERANDS. 
TO SAVE TIME IT IS SUGGESTED THAT SR9 = 0, SO THAT THE ISE 
IS PERFORMED ON EACH OPERAND ONLY ONCE INSTEAD OF INCREMENT- 
ING IT UNTIL THE ISZ INSTRUCTION SKIPS. 

FROM « 621 TO =625 REPEAT THE SET OF OPERANDS USED IN (A) 
ABOVE. 

THIS SEQUENCE CONTINUES UNTIL TO REACHES THE UPPER LIMIT OF 
THE MEMORY TEST AREA. FROM IS THEN INCREMENTED BY 1 AND 
THE PROCESS IS REPEATED, WHEN FROM REACHES THE UPPER LIMIT 
OF THE MEMORY TEST AREA, THE TEST IS COMPLETE. 

IDEALLY, IT IS DESIRABLE TO ISZ EVERY LOCATION FROM EVERY 
OTHER LOCATION IN THE TEST AREA AND. IN DOING SO, USE ALL 24 
OF THE SELECTED WORST CASE OPERANDS FOR EACH SET OF 
ADDRESSES. THIS IS WHAT PART 2 DOES, BUT IT TAKES MANY 
DAYS TO COMPLETE THE TEST. IT IS FOR THIS REASON THAT THE 
PROGRAM USES THE RANDOM NUMBER GENERATOR SYSTEM OF PART 1. 
PART 2 IS AN ADDITIONAL FEATURE OF THE PROGRAM WITH VERY 
LIMITED USE, 



A FC IS PRINTED AFTER EACH GROUP OF 32.000 TESTS. 



/pdp-be: is? test 
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0000 

0000 0000 

0001 5001 

0002 0002 

0003 0003 

0004 0000 

0005 0000 

0006 0202 

0007 0547 

0010 0007 

0011 0000 

0012 0000 

0013 7401 

0014 3607 

0015 0003 

0016 2421 

0017 §116 
0020 
0021 
0022 
0023 
0024 

0025 0004 

0026 0400 

0027 0200 

0030 0100 

0031 0000 

0032 0257 

0033 0201 

0034 0206 

0035 0413 

0036 1014 

0037 0600 



5141 

0000 
0000 
0000 



/PDP-8E IS2 TEST 

/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 

/CONSTANTS AND VARIABLES 
•0 



JMP 1 /PERIPHERAL INTERRUPT 

FRMLOC, 2 /ISi TEST INSTRUCTION LOCATION 

LIMLO. 3 /LOW LIMIT TEST AREA 





LIMHI, 

ASUC. 

MSK7, 

WORK, 

WORKl, 

M377. 

NUM. 

THREE, 

ISil, 

JMPl, 

JMP2, 

TOLOC, 

PATRN, 

BEFOR. 

AFTER, 

K4. 

K0400, 

K0200, 

K0100, 

NOTE, 

PRINT, 

AERRl, 

AERR2, 

APDR, 

ITADNM, 

ATFCLF, 



-7576 

sue 

0007 





-377 

3607 

3 



ISZ 

JMP 

JMP 









4 

0400 

0200 

0100 



INFl-1 

ERRl 

ERR2 

PDR 

TAD NUM 

TFCLF 



I TOLOC 

BACK 

BAKBRN 



/HIGH LIMIT TEST AREA 

/OCTAL CONVERSION MASK 

/IR0 

/IRl 

/THE RANDOM NUMBER LOCATION 



/MOVING ISZ 

/TEST INSTRUCTION 
/GROUP. 

/LOCATION TO BE ISZ'D 
/STARTING ISZ PATTERN 
/FAILING PATTERN BEFORE FAILING 
/PREDICTED RESULTS OF EACH ISH 
/SWITCH REGISTER MASKS 



1S2 



/7'S: 
/0'Ss 



ERROR 
ERROR 



WITH 
WITH 



NO SKIP 
SKIP 



/SR0(0)=HALT AFTER ERROR PRINTOUT 
/SR1(1)=N0 PRINTOUTS 
/SR3(1) s HOLD FROM CONSTANT 
/SR4<1) z HOLD TO CONSTANT 
/SR5(1) = HOLD PATTERN CONSTANT 
/SR9(0) = 00 ONE ISZ ONLY 
/SRll(l) s DO TEST PART 2 
/ 
/ 



0040 4441 

0041 0614 

0042 0015 



/PROGRAM START 
START, JUS I .♦I 
PATCH 
AND THREE 



/ION 
/LAS 



/PDP-6E ISZ TEST 



PAL10 V141 



9-JUN-71 



19146 PAGE 1-1 



0043 
0044 
004S 
0046 


7640 
9426 
1036 
3165 


0047 
0090 
0091 
0052 


760< 
0030 
7440 
5095 


0054, 


4164 
3022 


0099 

0096 
0057 
0060 


7604 
0»27 
7640 
9065 


0061 
0062 
0063 
0f64 


4164 
1021 
1B21 
4151 


0065 

0066 
01^67 
0070 


7»«4 
0026 

7640 
1075 


0«71 
0072 
0073 
0074 


4164 
3902 
1002 

4191 


0t75 

00r« 
te7x 

0100 
«101 
0102 

0103 

0104 
0109 


72 4f 

e 

1016 

34 n 

%917 
341,1 
1020 

3*41 


0106 
0107 


1022 
3421 



/SKIP IF PART 1 
/GO TO PART 2 



CHCMl, 



SEA CI.A 

jnp I K0400 

TAO ITAONM 

OCA RANUM+1 

/CHECK FOR FIXED PATTERN 

LAS 

AND K0100 

S!A 

JMP CHEK2 



/SEi.ECT THE PATTERN 
SEUPAT. JHS RANUK 
DCA PATRN 

/CHKM roR FIXED TO 
eHEK2, LAS 

AND K0200 
SZA CLA 

JMP CHEKJ 

/SELECT THE fO LOCAflON 
SELTO. <INS iUNUM 
OCA TOLOC 
TAD TOlDC 
JMS LIHTST 

/CHECK FOR FIXED FROM 
CHCKS. LAS 

AND K04M 
9iA IH.A 
jnP PLCINT 

/SELECT THE FROM LOCATION 
8ELFRH. JMS RANvn 
OCA rRMiOC 
TAD FRMLOC 
JMS LlMTST 

/^LACl FROM imSTRyCTlOISS 

PLC INT, CkA CHA 
TAD rUMiOC 
OOA MO^n 

T«D mi 

OCA I MQJK 
TAfl JMPl 
DCA- I W0#« 
TAD JW2 
DCA I MOAK 



/DEPOSIT PATTERN IN TO LOCATION 
TAO PATRN 
DCA I TOLOC 



/PDP-„c' ISZ TEST 
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0110 
0111 
0112 
0113 
0114 
0115 



0116 
0117 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0140 



0141 
0142 
0143 
0144 
0145 
0146 
0147 
0160 



1022 
3023 
1023 
7001 
3024 
5407 



7604 
7004 
7710 
5132 
1421 
7041 
1024 
7640 
5433 
1421 
7650 
9433 
7604 
0025 
7650 
5047 
7001 
1023 
SHI 



7604 
7004 
7710 
5047 
1421 
7640 
5434 
5047 



/STORE PREDICTED IS? RESULT 

TAD PATRN 

DCA BEFOR 

LUPl. TAD BEFOR 
lAC 

OCA AFTER 

JMP I ASUC 

/RETURN FOR NO SKIP CONDITION 
BACK, LAS 
RAL 

SPA CLA 
JMP LASl 
TAO I TOLOC 
CIA 

TAO AFTER 
SIA CLA 
JMP I AERRl 
TAD I TOLOC 
SNA CLA 
JMP I AERRl 
LAS 

AND K4 
SNA CLA 
JMP CHEKl 
lAC 

TAD BEFOR 
JMP LUPl-1 

/RETURN FOR SKIP CONDITION 
BAKBRN. LAS 
RAL 

SPA CLA 
JMP CHEKl 
TAD I TOLOC 
SZA CLA 
JMP I AERR2 
JMP CHEKl 



LASl, 



/ERROR IN ISZ OPERATION 
/ERROR IN ISZ Skip DETECTION 
/SKIP IF NOT ONE ISZ (SR9) 



/SKIP IF TO LOCATION OK 
/ERROR IN ISZ LOCATION 



0151 
0152 
0153 
0154 
0155 
0156 
0157 
0160 
0161 
0162 
0163 



0000 
7510 
5160 
1003 
7700 
5551 
5165 
1006 
7700 
5165 
6651 



/TEST HIGH-LOW LIMITS 

LIMTST, 

SPA 

JMP .♦5 

TAD LIMLO 

SMA CLA 

JMP I LIMTST 

JMP RANUM*! 

TAO LIMHI 

SMA CLA 

JMP RANUM*! 

JMP I LIMTST 



32 TEST 
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/RANDOM NUMBER GENERATOR 


0164 


0000 


RANUM. 







0165 


1014 




TAD 


NUM 


0166 


7104 




RAL 


CLL 


0167 


7430 




SEL 




0170 


m5 




TAD 


THREE 


0171 


3014 




oeA 


NUM 


0172 


1014 




tAO 


NUM /ACsNEW 


0173 


5564 




JMP 


1 RANUM 


0174 


1000 


K1000, 


1000 


0175 


0000 
0200 


KP. 
•200 







0200 


5040 




JMP 


START 








/ERROR ROUTINE 1 


0201 


1340 


ERRl, 


TAO 


SKPDAT*6 


0202 


3332 




OCA 


SKPOAT 


0203 


7040 




CMA 




0204 


3031 




OCA 


NOTE 


0205 


9^10 




JMP 


KPGO 








/ERROR ROUTINE 2 


0206 


1331 


ERR2. 


TAO 


SKPOAT-1 


0207 


3332 




OCA 


SKPOAT 


0210 


1002 


KPGO, 


TAD 


FRMLOC 


0211 


3011 




OCA 


WORK 


0212 


1370 




TAO 


A3 


0213 


4342 




JMS 


SETUP 


0214 


1021 




TAD 


TOLOC 


0215 


3011 




OCA 


WORK 


0216 


1371 




TAO 


A4 


0217 


4342 




JMS 


SETUP 


0220 


1022 




TAO 


PATRN 


0221 


3011 




OCA 


WORK 


0222 


1372 




TAO 


A5 


0223 


4342 




JMS 


SETUP 


0224 


1023 




TAD 


BEFOR 


0225 


3011 




OCA 


WORK 


0226 


1373 




TAD 


A6 


0227 


4342 




JMS 


SETUP 


0230 


1421 




TAD 


I TOLOC 


0231 


3011 




OCA 


WORK 


0232 


1374 




TAO 


A7 


0233 


4342 




JMS 
/TT> 


SETUP 
' PRINT ROUTINE 


0234 


6002 


TTY, 


lOF 




0235 


1032 




TAO 


PRINT 


0236 


3011 




OCA 


WORK 


0237 


1411 




TAD 


I WORK 
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0240 6046 TLS 

0241 6041 TSF 

0242 5241 JMP .-1 

0243 1013 TAO M377 

0244 7640 SZA CLA 

0245 5237 JMP TTY*3 

0246 6042 TCF 

0247 6001 ION 

0250 7604 LAS 

0251 7700 SMA CLA 

0292 7402 HLT /HALT AFTER ERROR <SR0) 

0253 1031 TAO NOTE 

»254 7650 SNA CLA 

0255 5047 jMP CHEKl 

0256 3031 OCA NOTE 

0257 5132 JMP LASl /RETURN TO NO SKIP ROUTINE 

/ERROR PRINT OUT LINE 1 

0260 0306 INFl, 306 /F FROM (INSTRUCTION LOCATION) 

0261 0240 240 /SPACE 

0262 0000 INDATA, /X LOCATION 

0263 0000 /X 

0264 0000 /X 

0265 0000 /X 

0266 0240 240 /SPACE 

0267 0240 240 /SPACE 

0270 0324 324 /T TO (OPERAND ADDRESS) 

0271 0240 240 /SPACE 

0272 0000 ONDATA. /X ADDRESS 

0273 0000 /X 

0274 0000 /X 

0275 0000 /X 

0276 0iS15 2t5 /CR 

0277 0212 212 /LF 

0300 0i!l5 215 /CR 

0301 0215 215 /CR 

/ERROR PRINTOUT LINE 2 

0302 0317 317 /O OPERAND (STARTING COUNT) 

0303 0240 240 /SPACE 

0304 0000 STDATA, /X PATTERN 

0305 0000 /X 

0306 0000 /X 

0307 0000 /X 

0310 0240 240 /SPACE 

0311 0240 240 /SPACE 

0312 0306 306 /F FAILING COUNT 

0313 0240 240 /SPACE 

0314 0000 FLDATA. /X PATTERN BEFORE FAILING ISZ 

0315 0000 /X 

0316 0000 /X 

0317 0000 /X 
0320 0240 240 /SPACE 



/PDP-8E ISZ TEST 
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0321 0240 

0322 0322 

0323 0240 



240 
322 

240 



/SPACE 

/R RESULT AFTER FAILURE 
/SPACE 



0324 
0325 
0326 
0327 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0340 
0341 

0342 

0343 

0344 

0345 

0346 

0347 

0350 

0351 

03S2 

0353 

0354 

0355 

0356 

0357 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 



0000 
0000 
0000 
0000 
0240 
0240 
0316 
0323 
0215 
0212 
0212 
0377 
0316 
0323 

0000 

3012 

1011 

7006 

7006 

4362 

7012 

7012 

7012 

4362 

7012 

7010 

4362 

4362 

7200 

5742 

0000 

0010 

1375 

3412 

1011 

5762 



0370 0261 

0371 0271 

0372 0303 

0373 0313 

0374 0323 

0375 0260 



RSOATA. 




240 
240 

SKPDAT. 316 
323 
215 
212 
212 
377 
316 
323 



SETUP, 



MORSU. 



A3> 
A4. 
A5< 

^6, 

A7. 
TW6, 





OCA 

TAO 

RTL 

RTL 

JMS 

RTR 

RTR 

RTR 

JMS 

RTR 

RAR 

JMS 

JMS 

CLA 

JMP 



AND 

TAD 

DCA 

TAD 

JMP 



WORKl 
WORK 



MORSU 



MORSU 



MORSU 
MORSU 

I SETUP 

MSK7 

TW6 

I WORKl 

WORK 

I MORSU 



/X 

/x 
/x 
/x 

/SPACE 

/SPACE 

/N 

/S 

/CR 

/LF 

/LF 

/RUBOUT 

/N 

/S 



PATTERN AFTER FAILING ISE 



NO 
SKIP 



/PAGE 1 CONSTANTS 

INDaTA-1 

ONOATA-1 

stdata-1 

FLDATA-1 
RSDATA-1 
0260 



/PART 2 INITIALIZATION ROUTINE 
0400 •400 
0400 1003 TAD LIMLO 



/PDP--. ISZ TEST 
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0401 


7041 


0402 


3310 


0403 


1003 


0404 


7040 


0405 


3311 


0406 


1346 


0407 


3313 


0410 


1314 


0411 


3165 


0412 


5047 


0413 


1164 


0414 


7041 


0415 


1305 


0416 


7650 


0417 


5303 


0420 


1164 


0421 


7041 


0422 


1306 


0423 


7650 


0424 


5301 


0425 


9226 


0426 


1713 


0427 


3312 


0430 


1312 


0431 


7450 


0432 


5240 


0433 


7201 


0434 


1313 


0435 


3313 


0436 


1312 


0437 


5564 


0440 


1345 


0441 


3313 


0442 


7001 


0443 


1311 


0444 


3311 


0445 


1311 


0446 


7041 


0447 


1310 


0450 


7640 


0451 


5255 


0452 


1311 


0453 


1015 


0454 


3311 


0455 


1311 


0456 


7500 


0457 


5276 



PDR, 



PRUT, 



CIA 

OCA FROM 
TAO IIMLO 
CMA 

OCA TO 
TAD A0 
DCA PATCYC 
TAO INSTl 
DCA RANUM*1 

JMP CHEKl 

/PATH DECISION ROUTINE 

TAD RANUM 

CIA 

TAD GFROM 

SNA CLA 

JMP FRUT 



/LOW LIMIT TO FROM 



/GO TO PAGE START 



/SKIP IF NOT REQUESTING FROM 

/GO TO FROM ADDRESS ROUTINE 



TAO RANUM 
CIA 

TAO GTO 
SNA CLA 
JMP TORUT 
JMP PRUT 



/SKIP IF NOT REQUESTING TO 

/GO TO TO ADDRESS ROUTINE 
/GO TO PATTERN ROUTINE 



/SELECT PATTERN AND OTHER THINGS 



TAO 
DCA 
TAD 
SNA 
JMP 
CLA 
TAD 



I PATCYC 

PATT 

PATT 



.*6 

lAC 

PATCYC 
DCA PATCYC 
TAD PATT 
JMP I RANUM 
/ 

TAD 
OCA 
lAC 
TAD 
DCA 
TAD 
CIA 

TAO FROM 
SZA CLA 



AK7776 
PATCYC 

TO 
TO 
TO 



JMP 
TAD 
TAD 
DCA 
TAD 
SMA 
JMP 



.♦4 

TO 

THREE 
TO 
TO 

GOUT 



/NO SKIP IF END OF PATTERN TABLE 
/END PATTERN TABLE LOOK AROUND 



/RETURN, AC=NEW PATTERN 



/RESTOR START ADDRESS OF PATT. TABLE 



/INCREMENT TO 



/SKIP IF TO = FROM 



/SKIP AROUND FROM 



04«0 


1,006 


0461 


7710 


0462 


5276 


0463 


7201 


0464 


1310 


0465 


3310 


0466 


1003 


0467 


7041 


0470 


3311 


0471 


1310 


0472 


1^006 


0473 


7710 


0474 


5276 


0475 


9200 


0476 


7200 


0477 


1212 



/PDP-8E IS2 TEST PAL10 V14l 9-JUN-71 15146 PAGE 1-7 

TAD LIMHI 

SPA CLA /SKIP IF END TEST AREA 
JMP GOUT 
CLA lAC 
TAD FROM 

DCA FROM /ADVANCE FROM 

TAD LIMLO 
CIA 

DCA TO /RESET TO ADDRESS 

TAD FROM 
TAD LIMHI 
SPA CLA 
JMP GOUT 
JMP 400 
GOUT. CLA 

TAD PATT 

0500 6564 JMP I RANUM 

/SELECT TO ROUTINE 

0501 1311 TORUT, TAD TO 

0502 5564 JMP I RANUM 

/SELECT FROM ROUTINE 

0503 1310 FRUT, TAD FROM 

0504 5564 JMP I RANUM 

/PAGE 3 CONSTANTS 

0505 0072 GFROM, SELFRM*! /STORED RETURN ADDRESS HHEN 

/RANDOM FROM IS REQUESTED 

0506 0062 GTO, SELTO*! /STqrEO RETURN ADDRESS WHEN 

/RANDOM TO IS REQUESTED 

0507 0054 GPAT, SELPAT*! /STORED RETURN ADDRESS WHEN 

/RANDOM PATTERN IS REQUESTED 

0510 0000 FROM. /CURRENT FROM ADDRESS 

0511 0000 TO. /CURRENT TO ADDRESS 

0512 0000 PATT, /CURRENT PATTERN 

0513 0000 PATCYC, /CURRENT PATTERN ADDRESS 

0514 5435 INSTl, JMP I APOR 

0515 7776 K7776, 7776 

0516 7/75 7775 

0517 7773 7773 

0520 7767 7767 

0521 7757 7757 

0522 7737 7737 

0523 7677 7677 

0524 7577 7577 

0525 7377 7377 

0526 6777 6777 

0527 5777 5777 

0530 3777 3777 

0531 0001 0001 

0532 0003 0003 

0533 0007 0007 

0534 0017 0017 
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IS2 TEST 


PAH0 


V141 9-JU 


0535 


0037 




0037 


0536 


0077 




0077 


0537 


0177 




0177 


0540 


0377 




0377 


0541 


0777 




0777 


0542 


1777 




1777 


0543 


3777 


K3777, 


3777 


0544 


0000 







0545 


0515 


AK7776, 


K7776 


0546 


0544 


A0> 


K3777+1 


054 7 


1375 


sue, 


TAD CT 


0550 


7001 




lAC 


0551 


3375 




DCA CT 


0552 


1375 




TAD CT 


0553 


7640 




SZA CLA 


0554 


9437 




JMP 1 ATFCLF 


0555 


U75 




TAD KP 


0556 


1174 




TAD K1000 


0557 


3175 




OCA KP 


0560 


1175 




TAD KP 


0561 


7640 




SEA CLA 


0562 


5437 




JMP I ATFCLF 


0563 


6002 




IDF 


0564 


1376 




TAD INF2 


0565 


3011 




DCA WORK 


0566 


5/67 




JMP I .♦! 


0567 


7602 




7602 


0570 


0215 




215 


0571 


0212 




212 


0572 


0306 




306 


0573 


0303 




303 


0574 


0377 




377 


0575 


0000 


CT. 





0576 


0567 


INF2, 


567 



0600 


1021 


0601 


7041 


0602 


1002 


0603 


7450 


0604 


5055 


0605 


7001 


0606 


74S0 


0607 


5055 


0610 


7001 


0611 


7650 


0612 


5055 



0600 «600 

/CHECK FOR TO'FROM CONFLICT 

TFCLF, TAD TOLOC 
CIA 

TAD FRMLOC 
SNA 

JMP CHEK2 
lAC 
SNA 

JMP CHEK2 
lAC 

SNA CLA 
JMP CHEK2 



Si TES 


iT 


PAL10 


V141 9-JUN-71 


0613 


9402 




JHP 


I frmloc 


0614 


0000 


PATCH, 







0615 


3000 




OCA 





0616 


1232 




TAD 


X 


0617 


3001 




OCA 


1 


0620 


1233 




TAD 


XI 


0621 


3002 




OCA 


2 


0622 


i2?4 




<TAD 


X2 


0623 


3003 




OCA 


3 


0624 


1235 




TAD 


X3 


0625 


3040 




OCA 


START 


0626 


1236 




TAD 


X4 


0627 


3041 




DCA 


START*! 


0630 


6001 




ION 




0631 


5614 




JMP 


I PATCH 


0632 


7402 


X, 


7402 


i 


0633 


0000 


XI, 







0634 


71^7 


X2. 


7197 




0635 


6001 


X3. 


ION 




0636 


7604 
7602 


X4. 
• 7602 


LAS 




7602 


1411 




TAO 


I WORK 


7603 


6046 




TLS 




7604 


6041 




TSF 




7605 


5204 




JMP 


.-1 


7606 


1013 




TAD 


M377 


7607 


7640 




SZA 


CLA 


7610 


5202 




JMP 


.-6 


7611 


9217 
7617 


• 7617 


JMP 


OVR 


7617 


6042 


OVR. 


TCF 




7620 


6001 




ION 




7621 


5437 




JMP 


I ATrCLF 
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/RESTORE THEN GQ AWAY 



